From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 17 Apr 2008 15:38:39 +0000 (+0000)
Subject: (define-abbrev-table): Fontify dosctrings as such.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~22365
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e1ca6a5b681c3f86244b40245214349be9ab6cfa;p=emacs.git

(define-abbrev-table): Fontify dosctrings as such.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 713da5a6d12..6d1a1deb310 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-04-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* abbrev.el (define-abbrev-table): Fontify dosctrings as such.
+
 	* minibuffer.el (completion-table-with-terminator): Fix paren typo.
 
 2008-04-17  Sam Steingold  <sds@gnu.org>
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index da09401504d..5e9f1de91b9 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -875,6 +875,7 @@ Abbrevs marked as \"system abbrevs\" are omitted."
 	(insert "    ))\n\n"))
       nil)))
 
+(put 'define-abbrev-table 'doc-string-elt 3)
 (defun define-abbrev-table (tablename definitions
                                       &optional docstring &rest props)
   "Define TABLENAME (a symbol) as an abbrev table name.